图书管理系统样板,案例,初学者参考。用VB和access做的。Public sys_loginsucceeded As Boolean '用户登录标志 Public sys_userid As String '用户id Public sys_borrowlimit As Integer '结束时限 Public sys_continuelimit As Integer '续借时限 Public sys_maxborrow As Integer '最大借书量 Public sys_maxpena
登录窗体Form1:I mports System.Data Imports System.Data.SqlClient Public Class Form1 Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Dim myconn As New SqlConnection("UID=sa;password=sa;database=图书管理系统;